﻿Public Class CharCodeArgVm
    Inherits ArgumentBaseVm

    Private mIsEditorOpen As Boolean
    Public Property IsEditorOpen As Boolean
        Get
            Return mIsEditorOpen
        End Get
        Set(value As Boolean)
            If mIsEditorOpen <> value Then
                mIsEditorOpen = value
                RaisePropertyChanged("IsEditorOpen")
            End If
        End Set
    End Property

    Public Overrides Property Value As String
        Get
            Return MyBase.Value
        End Get
        Set(value As String)
            IsEditorOpen = False
            MyBase.Value = value
        End Set
    End Property
End Class